#!/usr/bin/perl
my @servers = ("hadoop-prj-1","hadoop-prj-2");
my $vnodes = 200;
print "SERVERID=0\n";
print "PORT=3030\n";
print "FILEBASE=/home/ao/JenaClusteredStore/ClusteredTDB/DB/DB\n";

my $sstring = "SERVERS=";
my $vnstring = "VNODES=";

for(my $i = 0; $i < scalar(@servers); $i++) {
	$sstring = "$sstring$i,";
	print("SERVER-$i=",$servers[$i],",3030,10\n");
}

$sstring =~ s/,$/\n/;

print "$sstring";

for(my $i = 0; $i < $vnodes; $i++) {
	$vnstring = "$vnstring$i,";
	print("VNODE-$i=",$i % scalar(@servers),"\n");
}

$vnstring =~ s/,$/\n/;

print $vnstring;
